home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Everything / DModalBarsData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  7.4 KB  |  427 lines  |  [TEXT/CWIE]
  1. { DModalBarsData.p -- data container class for Everything}
  2.  
  3. Unit DModalBarsData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.  
  11.     AMSignaler;
  12.  
  13. const
  14.     idBars2        = longint ('Bar2');
  15.     idStandard5        = longint ('Sta5');
  16.     idGraphic4        = longint ('Gra4');
  17.     idSlider2        = longint ('Sli2');
  18.     idTickMarks2        = longint ('Tic2');
  19.     idNonDirectional2        = longint ('Non2');
  20.     idLittleArrows2        = longint ('Lit2');
  21.     idSpinner2        = longint ('Spi2');
  22.     idVolumeControl2        = longint ('Vol2');
  23.     idJimSSlider2        = longint ('Jim2');
  24.     idStandard6        = longint ('Sta6');
  25.     idIndeterminate2        = longint ('Ind2');
  26.     idChasingArrows2        = longint ('Cha2');
  27.     idRectangle2        = longint ('Rec2');
  28.     idRoundRect2        = longint ('Rou2');
  29.     idBarberPole2        = longint ('Bar3');
  30.     idRoundBarber2        = longint ('Rou3');
  31.  
  32. type
  33.     {----------}
  34.     DModalBarsData    = object (AMSignaler)
  35.  
  36.     {data members}
  37.         mBars2:        UInt16;
  38.         mStandard5:        SInt16;
  39.         mGraphic4:        SInt16;
  40.         mSlider2:        SInt16;
  41.         mTickMarks2:        SInt16;
  42.         mNonDirectional2:        SInt16;
  43.         mLittleArrows2:        SInt16;
  44.         mSpinner2:        SInt16;
  45.         mVolumeControl2:        SInt16;
  46.         mJimSSlider2:        SInt16;
  47.         mStandard6:        SInt16;
  48.         mIndeterminate2:        SInt16;
  49.         mChasingArrows2:        SInt16;
  50.         mRectangle2:        SInt16;
  51.         mRoundRect2:        SInt16;
  52.         mBarberPole2:        SInt16;
  53.         mRoundBarber2:        SInt16;
  54.  
  55.     {methods}
  56.         Procedure Initialize; Override;
  57.  
  58.         Function  GetBars2: UInt16;
  59.         Procedure SetBars2    (inValue:        UInt16);
  60.         Function  GetStandard5: SInt16;
  61.         Procedure SetStandard5    (inValue:        SInt16);
  62.         Function  GetGraphic4: SInt16;
  63.         Procedure SetGraphic4    (inValue:        SInt16);
  64.         Function  GetSlider2: SInt16;
  65.         Procedure SetSlider2    (inValue:        SInt16);
  66.         Function  GetTickMarks2: SInt16;
  67.         Procedure SetTickMarks2    (inValue:        SInt16);
  68.         Function  GetNonDirectional2: SInt16;
  69.         Procedure SetNonDirectional2    (inValue:        SInt16);
  70.         Function  GetLittleArrows2: SInt16;
  71.         Procedure SetLittleArrows2    (inValue:        SInt16);
  72.         Function  GetSpinner2: SInt16;
  73.         Procedure SetSpinner2    (inValue:        SInt16);
  74.         Function  GetVolumeControl2: SInt16;
  75.         Procedure SetVolumeControl2    (inValue:        SInt16);
  76.         Function  GetJimSSlider2: SInt16;
  77.         Procedure SetJimSSlider2    (inValue:        SInt16);
  78.         Function  GetStandard6: SInt16;
  79.         Procedure SetStandard6    (inValue:        SInt16);
  80.         Function  GetIndeterminate2: SInt16;
  81.         Procedure SetIndeterminate2    (inValue:        SInt16);
  82.         Function  GetChasingArrows2: SInt16;
  83.         Procedure SetChasingArrows2    (inValue:        SInt16);
  84.         Function  GetRectangle2: SInt16;
  85.         Procedure SetRectangle2    (inValue:        SInt16);
  86.         Function  GetRoundRect2: SInt16;
  87.         Procedure SetRoundRect2    (inValue:        SInt16);
  88.         Function  GetBarberPole2: SInt16;
  89.         Procedure SetBarberPole2    (inValue:        SInt16);
  90.         Function  GetRoundBarber2: SInt16;
  91.         Procedure SetRoundBarber2    (inValue:        SInt16);
  92.     end;
  93.  
  94. {----------}
  95. Function NewDModalBarsData: DModalBarsData;
  96.  
  97. {----------}
  98. Implementation
  99.  
  100. {----------}
  101. Function NewDModalBarsData: DModalBarsData;
  102. var
  103.     data:        DModalBarsData;
  104. begin
  105.     data := nil;
  106.     New (data);
  107.     if data <> nil then begin
  108.         data.Initialize;
  109.     end;
  110.     NewDModalBarsData := data;
  111. end;
  112.  
  113. {----------}
  114. Procedure DModalBarsData.Initialize;
  115. begin
  116.     inherited Initialize;
  117.  
  118.     mBars2 := 0;
  119.     mStandard5 := 5;
  120.     mGraphic4 := 5;
  121.     mSlider2 := 5;
  122.     mTickMarks2 := 5;
  123.     mNonDirectional2 := 5;
  124.     mLittleArrows2 := 5;
  125.     mSpinner2 := 5;
  126.     mVolumeControl2 := 5;
  127.     mJimSSlider2 := 5;
  128.     mStandard6 := 5;
  129.     mIndeterminate2 := 5;
  130.     mChasingArrows2 := 5;
  131.     mRectangle2 := 5;
  132.     mRoundRect2 := 5;
  133.     mBarberPole2 := 5;
  134.     mRoundBarber2 := 5;
  135. end;
  136.  
  137. {----------}
  138. Function DModalBarsData.GetBars2: UInt16;
  139. begin
  140.     GetBars2 := mBars2;
  141.  
  142.  
  143. end;
  144.  
  145. Procedure DModalBarsData.SetBars2 (
  146.     inValue:        UInt16);
  147. begin
  148.     mBars2 := inValue;
  149.  
  150.  
  151.     SignalDataChanged (idBars2);
  152. end;
  153.  
  154. {----------}
  155. Function DModalBarsData.GetStandard5: SInt16;
  156. begin
  157.     GetStandard5 := mStandard5;
  158.  
  159.  
  160. end;
  161.  
  162. Procedure DModalBarsData.SetStandard5 (
  163.     inValue:        SInt16);
  164. begin
  165.     mStandard5 := inValue;
  166.  
  167.  
  168.     SignalDataChanged (idStandard5);
  169. end;
  170.  
  171. {----------}
  172. Function DModalBarsData.GetGraphic4: SInt16;
  173. begin
  174.     GetGraphic4 := mGraphic4;
  175.  
  176.  
  177. end;
  178.  
  179. Procedure DModalBarsData.SetGraphic4 (
  180.     inValue:        SInt16);
  181. begin
  182.     mGraphic4 := inValue;
  183.  
  184.  
  185.     SignalDataChanged (idGraphic4);
  186. end;
  187.  
  188. {----------}
  189. Function DModalBarsData.GetSlider2: SInt16;
  190. begin
  191.     GetSlider2 := mSlider2;
  192.  
  193.  
  194. end;
  195.  
  196. Procedure DModalBarsData.SetSlider2 (
  197.     inValue:        SInt16);
  198. begin
  199.     mSlider2 := inValue;
  200.  
  201.  
  202.     SignalDataChanged (idSlider2);
  203. end;
  204.  
  205. {----------}
  206. Function DModalBarsData.GetTickMarks2: SInt16;
  207. begin
  208.     GetTickMarks2 := mTickMarks2;
  209.  
  210.  
  211. end;
  212.  
  213. Procedure DModalBarsData.SetTickMarks2 (
  214.     inValue:        SInt16);
  215. begin
  216.     mTickMarks2 := inValue;
  217.  
  218.  
  219.     SignalDataChanged (idTickMarks2);
  220. end;
  221.  
  222. {----------}
  223. Function DModalBarsData.GetNonDirectional2: SInt16;
  224. begin
  225.     GetNonDirectional2 := mNonDirectional2;
  226.  
  227.  
  228. end;
  229.  
  230. Procedure DModalBarsData.SetNonDirectional2 (
  231.     inValue:        SInt16);
  232. begin
  233.     mNonDirectional2 := inValue;
  234.  
  235.  
  236.     SignalDataChanged (idNonDirectional2);
  237. end;
  238.  
  239. {----------}
  240. Function DModalBarsData.GetLittleArrows2: SInt16;
  241. begin
  242.     GetLittleArrows2 := mLittleArrows2;
  243.  
  244.  
  245. end;
  246.  
  247. Procedure DModalBarsData.SetLittleArrows2 (
  248.     inValue:        SInt16);
  249. begin
  250.     mLittleArrows2 := inValue;
  251.  
  252.  
  253.     SignalDataChanged (idLittleArrows2);
  254. end;
  255.  
  256. {----------}
  257. Function DModalBarsData.GetSpinner2: SInt16;
  258. begin
  259.     GetSpinner2 := mSpinner2;
  260.  
  261.  
  262. end;
  263.  
  264. Procedure DModalBarsData.SetSpinner2 (
  265.     inValue:        SInt16);
  266. begin
  267.     mSpinner2 := inValue;
  268.  
  269.  
  270.     SignalDataChanged (idSpinner2);
  271. end;
  272.  
  273. {----------}
  274. Function DModalBarsData.GetVolumeControl2: SInt16;
  275. begin
  276.     GetVolumeControl2 := mVolumeControl2;
  277.  
  278.  
  279. end;
  280.  
  281. Procedure DModalBarsData.SetVolumeControl2 (
  282.     inValue:        SInt16);
  283. begin
  284.     mVolumeControl2 := inValue;
  285.  
  286.  
  287.     SignalDataChanged (idVolumeControl2);
  288. end;
  289.  
  290. {----------}
  291. Function DModalBarsData.GetJimSSlider2: SInt16;
  292. begin
  293.     GetJimSSlider2 := mJimSSlider2;
  294.  
  295.  
  296. end;
  297.  
  298. Procedure DModalBarsData.SetJimSSlider2 (
  299.     inValue:        SInt16);
  300. begin
  301.     mJimSSlider2 := inValue;
  302.  
  303.  
  304.     SignalDataChanged (idJimSSlider2);
  305. end;
  306.  
  307. {----------}
  308. Function DModalBarsData.GetStandard6: SInt16;
  309. begin
  310.     GetStandard6 := mStandard6;
  311.  
  312.  
  313. end;
  314.  
  315. Procedure DModalBarsData.SetStandard6 (
  316.     inValue:        SInt16);
  317. begin
  318.     mStandard6 := inValue;
  319.  
  320.  
  321.     SignalDataChanged (idStandard6);
  322. end;
  323.  
  324. {----------}
  325. Function DModalBarsData.GetIndeterminate2: SInt16;
  326. begin
  327.     GetIndeterminate2 := mIndeterminate2;
  328.  
  329.  
  330. end;
  331.  
  332. Procedure DModalBarsData.SetIndeterminate2 (
  333.     inValue:        SInt16);
  334. begin
  335.     mIndeterminate2 := inValue;
  336.  
  337.  
  338.     SignalDataChanged (idIndeterminate2);
  339. end;
  340.  
  341. {----------}
  342. Function DModalBarsData.GetChasingArrows2: SInt16;
  343. begin
  344.     GetChasingArrows2 := mChasingArrows2;
  345.  
  346.  
  347. end;
  348.  
  349. Procedure DModalBarsData.SetChasingArrows2 (
  350.     inValue:        SInt16);
  351. begin
  352.     mChasingArrows2 := inValue;
  353.  
  354.  
  355.     SignalDataChanged (idChasingArrows2);
  356. end;
  357.  
  358. {----------}
  359. Function DModalBarsData.GetRectangle2: SInt16;
  360. begin
  361.     GetRectangle2 := mRectangle2;
  362.  
  363.  
  364. end;
  365.  
  366. Procedure DModalBarsData.SetRectangle2 (
  367.     inValue:        SInt16);
  368. begin
  369.     mRectangle2 := inValue;
  370.  
  371.  
  372.     SignalDataChanged (idRectangle2);
  373. end;
  374.  
  375. {----------}
  376. Function DModalBarsData.GetRoundRect2: SInt16;
  377. begin
  378.     GetRoundRect2 := mRoundRect2;
  379.  
  380.  
  381. end;
  382.  
  383. Procedure DModalBarsData.SetRoundRect2 (
  384.     inValue:        SInt16);
  385. begin
  386.     mRoundRect2 := inValue;
  387.  
  388.  
  389.     SignalDataChanged (idRoundRect2);
  390. end;
  391.  
  392. {----------}
  393. Function DModalBarsData.GetBarberPole2: SInt16;
  394. begin
  395.     GetBarberPole2 := mBarberPole2;
  396.  
  397.  
  398. end;
  399.  
  400. Procedure DModalBarsData.SetBarberPole2 (
  401.     inValue:        SInt16);
  402. begin
  403.     mBarberPole2 := inValue;
  404.  
  405.  
  406.     SignalDataChanged (idBarberPole2);
  407. end;
  408.  
  409. {----------}
  410. Function DModalBarsData.GetRoundBarber2: SInt16;
  411. begin
  412.     GetRoundBarber2 := mRoundBarber2;
  413.  
  414.  
  415. end;
  416.  
  417. Procedure DModalBarsData.SetRoundBarber2 (
  418.     inValue:        SInt16);
  419. begin
  420.     mRoundBarber2 := inValue;
  421.  
  422.  
  423.     SignalDataChanged (idRoundBarber2);
  424. end;
  425.  
  426. end.
  427.